0 REM  << CD38-3 >>
1 REM PROBLEM #34-2 :
2 PRINT"   GREASED IGPAY"
4 REM =================================
5 REM  - SOLUTION BY DR. CURRYFAVOR -
6 REM =================================
10 INPUTA$:V$="AEIOU"
20 FORV=1TO5:IFLEFT$(A$,1)=MID$(V$,V,1)THENPRINTA$"AY":GOTO10
30 NEXT:A$=RIGHT$(A$,LEN(A$)-1)+LEFT$(A$,1):GOTO20
40 REM   NEXT:A$=MID$(A$,2)+LEFT$(A$,1):GOTO20
94 REM =================================
95 REM   - SOLUTION BY CHRIS BARTH -
96 REM =================================
100 GETA$:IF A$=" "THENPRINTW$"AY":RUN100
110 FORV=1TO5:A=A+(A$=MID$("AEIOU",V,1)):NEXT:IFA<0THENPRINTA$;:GOTO100
120 W$=W$+A$:GOTO100
194 REM ================================
195 REM   - SOLUTION BY GREG SMISEK -
196 REM ================================
200 INPUTW$:FORC=1TOLEN(W$):FORL=1TO6+(C=1):IFMID$(W$,C,1)<>MID$("AEIOUY",L,1)THENNEXT:NEXT
210 C=C+(C=3ANDMID$(W$,2,1)="H"):PRINTMID$(W$,C)LEFT$(W$,C-1)CHR$(-87*(C=1))"AY":RUN200